home *** CD-ROM | disk | FTP | other *** search
/ Enter 2001 April / EnterCD4.iso / Update / SQL Server SP3 / sql70sp3i.exe / X86 / BINN / res / 1033 / sqlmmc.rll / HTML / VBREPLIN.BAS < prev    next >
Encoding:
BASIC Source File  |  1999-04-12  |  4.9 KB  |  120 lines
  1. ' **********************************************************
  2. '  GenerateVerLinListTable
  3. '
  4. '  Generates a chart showing the amount of data and index
  5. '  space used.
  6. ' **********************************************************
  7.  
  8. sub GenerateVerLinListTable(ByVal strPackageGuid)
  9.     Dim iVersionNum
  10.     Dim iVersionMax
  11.     Dim iLinNum
  12.     Dim iLinMax
  13.     Dim arrVersions()
  14.     Dim arrLineages()
  15.     Dim arrLinPropValues()
  16.     Dim strPackGuid
  17.     Dim strVermodtime
  18.  
  19.     strHTML = "<table class=""DBTable"" width=""100%"" cellpadding=""0"" cellspacing=""2"">"
  20.  
  21.     Call findVersionGuids(arrVersions, strPackageGuid)
  22.  
  23.     iVersionMax = UBound(arrVersions) - 1
  24.     For iVersionNum = 0 to iVersionMax
  25.         Call getVersionName(strVersionName, arrVersions(iVersionNum))
  26.         strPackGuid = getPackageGuidFromVers(arrVersions(iVersionNum))
  27.         Call getPackageVermodtime(strVermodtime, strPackGuid)
  28.         strVermodtime = GetResString(81) & strVermodtime
  29.         strHTML = strHTML & GenerateVersionRow(strVersionName, strVermodtime, arrVersions(iVersionNum))
  30.         Call findLineageGuids(arrLineages, arrVersions(iVersionNum))
  31.         iLinMax = UBound(arrLineages) - 1
  32.         For iLinNum = 0 to iLinMax
  33.             Call getLinProperties(arrLinPropValues, arrLineages(iLinNum))
  34.             strHTML = strHTML & GenerateLineageRow(arrLinPropValues, arrLineages(iLinNum))
  35.         Next
  36.     Next
  37.  
  38.     strHTML = strHTML & "</table>"
  39.     document.all.BrowseTable.style.display = ""
  40.     document.all.HorzRuleVerLin.style.display = ""
  41.  
  42.     document.all.VerLinListData.innerHTML = strHTML
  43. end sub
  44.  
  45.  
  46. Function GenerateVersionRow(strVersionName, strVermodtime, strVersionGuid)
  47.     Dim strHTML
  48.     strVersionName = MyHTMLEncode(strVersionName)
  49.     strVermodtime = MyHTMLEncode(strVermodtime)
  50.  
  51.     strHTML = ""
  52.     strHTML = strHTML & "<tr>"
  53.     strHTML = strHTML & "  <td class=""DBHighlightedTableText"" width=""40%"">"
  54.     strHTML = strHTML & "    <table frame=""void"" cellspacing=""0"" cellpadding=""0"" width=""100%"">"
  55.     strHTML = strHTML & "      <tr>"
  56.     strHTML = strHTML & "        <td width=""10"" nowrap></td>"
  57.     strHTML = strHTML & "        <td class=""DBHighlightedTableText""><a class=""TableRowButton"" href language=""jscript"" onclick=""ShowPackFromVers("" & strVersionName & "", "" & strVersionGuid & "")""><img src=""repver.gif""> " & strVermodtime & "</a></td>"
  58.     strHTML = strHTML & "      </tr>"
  59.     strHTML = strHTML & "       </table>"
  60.     strHTML = strHTML & "  </td>"
  61.     strHTML = strHTML & "  <td class=""DBHighlightedTableText"">"
  62.     strHTML = strHTML & "    <table frame=""void"" cellspacing=""0"" cellpadding=""0"" width=""100%"">"
  63.     strHTML = strHTML & "       </table>"
  64.     strHTML = strHTML & "  </td>"
  65.     strHTML = strHTML & "</tr>"
  66.     GenerateVersionRow = strHTML
  67. End Function
  68.  
  69.  
  70. Function GenerateLineageRow(arrLinPropValues, strLineageGuid)
  71.     Dim strHTML
  72.     arrLinPropValues(0) = MyHTMLEncode(arrLinPropValues(0))
  73.     arrLinPropValues(3) = MyHTMLEncode(arrLinPropValues(3))
  74.     arrLinPropValues(4) = MyHTMLEncode(arrLinPropValues(4))
  75.     arrLinPropValues(5) = MyHTMLEncode(arrLinPropValues(5))
  76.  
  77.     strHTML = ""
  78.     strHTML = strHTML & "<tr>"
  79.     strHTML = strHTML & "  <td class=""DBTableText"" width=""40%"">"
  80.     strHTML = strHTML & "    <table frame=""void"" cellspacing=""0"" cellpadding=""0"" width=""100%"">"
  81.     strHTML = strHTML & "      <tr>"
  82.     strHTML = strHTML & "        <td width=""35"" nowrap></td>"
  83.     strHTML = strHTML & "        <td class=""DBTableText""><a class=""TableRowButton"" href language=""jscript"" onclick=""ShowLinPackageProp("" & GetResString(83) & arrLinPropValues(0) & "","" & strLineageGuid & "")""><img src=""replin.gif""> " & GetResString(83) & arrLinPropValues(0) & "</a></td>"
  84.     strHTML = strHTML & "      </tr>"
  85.     strHTML = strHTML & "       </table>"
  86.     strHTML = strHTML & "  </td>"
  87.     strHTML = strHTML & "  <td>"
  88.     strHTML = strHTML & "    <table frame=""void"" cellspacing=""0"" cellpadding=""0"" width=""100%"">"
  89.     strHTML = strHTML & "         <td class=""DBTableText"" WIDTH=33% align=""left"">" & arrLinPropValues(3) & "</td>"
  90.     strHTML = strHTML & "         <td class=""DBTableText"" WIDTH=33% align=""left"">" & arrLinPropValues(4) & "</td>"
  91.     strHTML = strHTML & "         <td class=""DBTableText"" WIDTH=33% align=""left"">" & arrLinPropValues(5) & "</td>"
  92.     strHTML = strHTML & "       </table>"
  93.     strHTML = strHTML & "  </td>"
  94.     strHTML = strHTML & "</tr>"
  95.     GenerateLineageRow = strHTML
  96. End Function
  97.  
  98.  
  99. '
  100. Sub findAndShowLineage(ByVal LineageLong, ByVal LineageShort)
  101.     Dim arrLinGuids()
  102.     Dim strTitle
  103.     
  104.     Call findLinGuids(arrLinGuids, LineageLong, LineageShort)
  105.     If (UBound(arrLinGuids) = 0) Then
  106.         'lineage not found
  107.         findLinMsg.innerText = GetResString(39)    ' "Lineage Not Found."
  108.     Else
  109.         findLinMsg.innerText = ""
  110.         If (LineageLong <> "") Then
  111.             ' use the LineageLong
  112.             strTitle = GetResString(40)    & " = " & LineageLong        ' "Lineage Long"
  113.         Else
  114.             ' use the LineageShort
  115.             strTitle = GetResString(41)    & " = " & LineageShort        ' "Lineage Short"
  116.         End if
  117.         Call ShowLinsPackagesProp(strTitle, arrLinGuids)
  118.     end if
  119. end sub
  120.